// Grafico para punto 1: Función de ahorro e intereses.
// Definición variables para la ecuación de la función.
// 
A0=1000000;
r=0.03;
Q=500000;
Af=40000000;
// Por busqueda en el gráfico se llegó a esta aproximación de la raíz
//
xInf=38.85;
xSup=38.8504;
// Sin busqueda tomaría los siguientes valores iniciales
// Y se podría decir que para el algoritmo los valores iniciales serían 35, 40.
//xInf=0;
//xSup=55;
// Numero de datos para la gráfica
//
nDatos=70;

// Definición de la función de ahorro anual centrada en el ahorro deseado Af
//
function y = ahorroxanioAf(t)
    y=A0*exp(r*t)+((Q/r)*(exp(r*t)-1))-Af;
endfunction

ts=linspace(xInf,xSup,nDatos);
// Grafico;
//
plot(ts,ahorroxanioAf,"s-");
xtitle("Grafica ahorro por año centrada en $40M desde $1M","t años","Ahorro(t)-$40M");
legend("A(t)");
xgrid();
